home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / perl5.002 / macish.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-20  |  3.3 KB  |  162 lines  |  [TEXT/MPS ]
  1. #include "EXTERN.h"
  2. #include "perl.h"
  3.  
  4. int link()
  5. {
  6.     if (dowarn)
  7.         warn("MacPerl: link always fails");
  8.         
  9.     return -1;
  10. }
  11.  
  12. unsigned short umask(unsigned short arg)
  13. {
  14.     if (dowarn && arg)
  15.         warn("MacPerl: nonzero argument to umask() ignored");
  16.     
  17.     return 0;
  18. }
  19.  
  20. static char *
  21. setup_argstr(SV *really, SV **mark, SV **sp)
  22. {
  23.   char *junk, *tmps = Nullch;
  24.   register size_t cmdlen = 0;
  25.   size_t rlen;
  26.   register SV **idx;
  27.  
  28.   idx = mark;
  29.   if (really) {
  30.     tmps = SvPV(really,rlen);
  31.     if (*tmps) {
  32.       cmdlen += rlen + 1;
  33.       idx++;
  34.     }
  35.   }
  36.   
  37.   for (idx++; idx <= sp; idx++) {
  38.     if (*idx) {
  39.       junk = SvPVx(*idx,rlen);
  40.       cmdlen += rlen ? rlen + 1 : 0;
  41.     }
  42.   }
  43.   New(401,Cmd,cmdlen,char);
  44.  
  45.   if (tmps && *tmps) {
  46.     strcpy(Cmd,tmps);
  47.     mark++;
  48.   }
  49.   else *Cmd = '\0';
  50.   while (++mark <= sp) {
  51.     if (*mark) {
  52.       strcat(Cmd," ");
  53.       strcat(Cmd,SvPVx(*mark,na));
  54.     }
  55.   }
  56.   return Cmd;
  57. }  /* end of setup_argstr() */
  58.  
  59. int do_spawn(char * command)
  60. {
  61.     int         ch;
  62.     FILE *    temp = my_popen(command, "r");
  63.     
  64.     while ((ch = getc(temp)) != EOF)
  65.         putc(ch, stdout);
  66.     
  67.     my_pclose(temp);
  68. }
  69.  
  70. int do_aspawn(SV *really,SV **mark,SV **sp)
  71. {
  72.   if (sp > mark) {
  73.     return do_spawn(setup_argstr(really,mark,sp));
  74.   }
  75.  
  76.   return -1;
  77. }  /* end of do_aspawn() */
  78.  
  79. char * sys_errlist[] = {
  80.     "No error",
  81.     "Operation not permitted",
  82.     "No such file or directory",
  83.     "No such process",
  84.     "Interrupted system call",
  85.     "Input/output error",
  86.     "Device not configured",
  87.     "Argument list too long",
  88.     "Exec format error",
  89.     "Bad file descriptor",
  90.     "No child processes",
  91.     "Operation would block",
  92.     "Cannot allocate memory",
  93.     "Permission denied",
  94.     "Bad address",
  95.     "Block device required",
  96.     "Device busy",
  97.     "File exists",
  98.     "Cross-device link",
  99.     "Operation not supported by device",
  100.     "Not a directory",
  101.     "Is a directory",
  102.     "Invalid argument",
  103.     "Too many open files in system",
  104.     "Too many open files",
  105.     "Inappropriate ioctl for device",
  106.     "Text file busy",
  107.     "File too large",
  108.     "No space left on device",
  109.     "Illegal seek",
  110.     "Read-only file system",
  111.     "Too many links",
  112.     "Broken pipe",
  113.     "Numerical argument out of domain",
  114.     "Result too large",
  115.     "(unknown)",
  116.     "Operation now in progress",
  117.     "Operation already in progress",
  118.     "Socket operation on non-socket",
  119.     "Destination address required",
  120.     "Message too long",
  121.     "Protocol wrong type for socket",
  122.     "Protocol not available",
  123.     "Protocol not supported",
  124.     "Socket type not supported",
  125.     "Operation not supported on socket",
  126.     "Protocol family not supported",
  127.     "Address family not supported by protocol family",
  128.     "Address already in use",
  129.     "Can't assign requested address",
  130.     "Network is down",
  131.     "Network is unreachable",
  132.     "Network dropped connection on reset",
  133.     "Software caused connection abort",
  134.     "Connection reset by peer",
  135.     "No buffer space available",
  136.     "Socket is already connected",
  137.     "Socket is not connected",
  138.     "Can't send after socket shutdown",
  139.     "Too many references: can't splice",
  140.     "Connection timed out",
  141.     "Connection refused",
  142.     "Too many levels of symbolic links",
  143.     "File name too long",
  144.     "Host is down",
  145.     "No route to host",
  146.     "Directory not empty",
  147.     "Too many processes",
  148.     "Too many users",
  149.     "Disc quota exceeded",
  150.     "Stale NFS file handle",
  151.     "Too many levels of remote in path",
  152.     "RPC struct is bad",
  153.     "RPC version wrong",
  154.     "RPC prog. not avail",
  155.     "Program version wrong",
  156.     "Bad procedure for program",
  157.     "No locks available",
  158.     "Function not implemented",
  159.     "Inappropriate file type or format",
  160.     0
  161. };
  162.